From 67c8ec8a4dabd875705537eacebb812b748d9ad1 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Wed, 15 Jul 2009 12:28:09 +0000 Subject: [PATCH] (set-language-environment-charset): If coding-system-charset-list returns `iso-2022' or `emacs-mule', ignore them. --- lisp/international/mule-cmds.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index e67c8ea5e5c..a3ab25095ab 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el @@ -2035,7 +2035,9 @@ See `set-language-info-alist' for use in programs." ;; coding systems of higher priorities in this environment. (let ((charsets (get-language-info language-name 'charset))) (dolist (coding (get-language-info language-name 'coding-priority)) - (setq charsets (append charsets (coding-system-charset-list coding)))) + (let ((list (coding-system-charset-list coding))) + (if (consp list) + (setq charsets (append charsets list))))) (if charsets (apply 'set-charset-priority charsets)))) -- 2.30.2